home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / demos / qbs / winsoft / vb_lm / vblm_rts.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-08-09  |  2.1 KB  |  72 lines
  1. VERSION 2.00
  2. Begin Form frmVBLM_RTS 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   2850
  6.    ClientLeft      =   4065
  7.    ClientTop       =   2295
  8.    ClientWidth     =   3465
  9.    ControlBox      =   0   'False
  10.    Height          =   3255
  11.    Left            =   4005
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2850
  15.    ScaleWidth      =   3465
  16.    Top             =   1950
  17.    Width           =   3585
  18.    Begin CommandButton cmdOK 
  19.       Caption         =   "OK"
  20.       Default         =   -1  'True
  21.       Height          =   375
  22.       Left            =   1020
  23.       TabIndex        =   1
  24.       Top             =   1740
  25.       Width           =   1455
  26.    End
  27.    Begin ListBox lstLanguages 
  28.       Height          =   1005
  29.       Left            =   240
  30.       TabIndex        =   0
  31.       Top             =   540
  32.       Width           =   2895
  33.    End
  34.    Begin Label lbl 
  35.       Alignment       =   2  'Center
  36.       BackStyle       =   0  'Transparent
  37.       Caption         =   "Runtime Multi-Language Support by             VB Language Manager from WhippleWare
  38.       FontBold        =   0   'False
  39.       FontItalic      =   0   'False
  40.       FontName        =   "MS Sans Serif"
  41.       FontSize        =   8.25
  42.       FontStrikethru  =   0   'False
  43.       FontUnderline   =   0   'False
  44.       Height          =   435
  45.       Index           =   1
  46.       Left            =   120
  47.       TabIndex        =   3
  48.       Top             =   2280
  49.       Width           =   3255
  50.    End
  51.    Begin Label lbl 
  52.       Alignment       =   2  'Center
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "Please Select a Language"
  55.       Height          =   195
  56.       Index           =   0
  57.       Left            =   240
  58.       TabIndex        =   2
  59.       Top             =   180
  60.       Width           =   2835
  61.    End
  62. Option Explicit
  63. Sub cmdOK_Click ()
  64.     If lstLanguages.ListIndex > True Then
  65.         Me.Hide
  66.     Else Beep
  67.     End If
  68. End Sub
  69. Sub lstLanguages_DblClick ()
  70.     cmdOK_Click
  71. End Sub
  72.